home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / Iterators / iterators_test.e
Encoding:
Text File  |  1994-11-08  |  378 b   |  22 lines
  1. -> iterators test
  2.  
  3. MODULE 'tools/exceptions', 'tools/constructors', '*iterators',
  4.        'exec/lists', 'exec/nodes'
  5.  
  6. OBJECT bla OF ln
  7.   v:LONG
  8. ENDOBJECT
  9.  
  10. PROC main() HANDLE
  11.   DEF l,n:PTR TO bla,x=10
  12.   l:=newlist()
  13.   WHILE x>0 DO AddHead(l,NEW n.n(x--))
  14.   iterate_exec_list({n},l,`WriteF('v = \d\n',n.v))
  15. EXCEPT
  16.   report_exception()
  17. ENDPROC
  18.  
  19. PROC n(v) OF bla
  20.   self.v:=v
  21. ENDPROC
  22.